home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1996 #6
/
Amiga Plus CD - 1996 - No. 06.iso
/
pd
/
netz
/
mphone
/
installation
< prev
next >
Wrap
Text File
|
1996-08-01
|
6KB
|
298 lines
; Installations-Script für MPhone
(delopts "oknodelete" "force" "askuser")
(complete 0)
(If (= @language "deutsch")
(
(set #intro (cat
" \n"
" \n"
"Alle Rechte vorbehalten. \n"
" \n"
"MPhone ©1995 Stefan Kraus \n"
" \n"
"MPhone ist ein Gebührenrechner mit \n"
"integriertem Telefonbuch. Zusätzlich \n"
"stehen noch diverse Erweiterungen zur \n"
"Verfügung. \n"
)
)
(set #dest1 (cat
"Bitte, Verzeichnis für MPhone auswählen.\n"
"Es wird automatisch ein Verzeichnis für\n"
"MPhone angelegt."
)
)
(set #dest2 (cat
"\n"
"\n"
" Es muß ein Verzeichnis ausgewählt werden\n"
" um MPhone installieren zu können. \n"
)
)
(set #data "Scanner, Tarife und Vorwahlen installieren...")
(set #pref (cat
"\n"
"\n"
"Alte Voreinstellungen gefunden !!! \n"
"Sollen diese überschrieben werden ? \n"
)
)
(set #prefI "Ja")
(set #prefII "Nein")
(set #prefh (cat
"\n"
"\n"
" Es wurden alte Voreinstellungen gefunden. \n"
" Bei ja gehen diese Voreinstellungen verloren.\n"
" Bei nein wird dieser Bereich übergangen. \n"
)
)
(set #MT (cat
"\n"
"\n"
" Möchten Sie die Optimierten Logdateien und die \n"
" Telefonbuch-Logdatei, von MadisonTools, für \n"
" MPhone konvertieren ? \n"
)
)
(set #MT2MP "Starte Konverter...")
(set #MT2MPh (cat
"\n"
" Der Konverter wandelt die Optimierten Log- \n"
" dateien, von MadisonTools, für MPhone um. \n"
" Somit kann MPhone alle bisherigen Berechnungen \n"
" weiterverwenden. \n"
" Zusätzlich wird das Telefonbuch auch konvertiert.\n"
)
)
(set #MPD (cat
"\n"
"Sollen die Entwicklerdaten auch installiert\n"
"werden ? \n"
)
)
(set #MPDm "kopiere Entwicklerdaten...")
(set #MPDh (cat
"\n"
" Falls Sie Module für MPhone schreiben möchten, \n"
" sollten Sie diese Daten unbedingt installieren.\n"
" Es befinden sich darunter Include-Daten und \n"
" eine genaue Anleitung. In dieser Anleitung \n"
" werden diverse Internas von MPhone erläutert. \n"
)
)
)
)
(complete 0)
(message #intro)
(welcome)
(set @default-dest "SYS:Tools")
(set #ddest "Work:MPhone")
(if (exists #ddest (noreq))
(set @default-dest "Work:")
)
(set #default-dest
(askdir (prompt #dest1)
(help #dest2)
(default @default-dest)
)
)
(set @default-dest #default-dest)
(complete 1)
; Analyse ob Assign gesetzt werden muß
; Grunddaten installieren
(copyfiles (source "MPhone1/Main1")
(dest #default-dest)
(infos)
(all)
)
(complete 40)
; KeyFile und Passwort installieren
(if (exists "MPhone1/Main2/MPKey" )
(
(set #dest (tackon #default-dest "MPhone"))
(copyfiles (source "MPhone1/Main2/MPKey")
(dest #dest)
(infos)
(all)
)
(copyfiles (source "MPhone1/Main2/MPPassword")
(dest "ENVARC:")
(infos)
(all)
)
)
)
(complete 50)
; Grunddaten installieren
(copyfiles (source "MPhone2/Main1")
(dest #default-dest)
(infos)
(all)
)
(complete 65)
; Localisierung installieren
(
(copyfiles (source "MPhone2/Main4")
(dest "SYS:")
(infos)
(all)
)
)
; alte Localisierung löschen
(Set #ddest (tackon #default-dest "MPhone/Locale/"))
(if (exists #ddest (noreq))
(
(set dels (tackon #default-dest "MPhone"))
(makeassign "MPhone" dels)
(run "c:delete >NIL: MPhone:Locale ALL")
)
)
(Set #ddest (tackon #default-dest "MPhone/Module/Locale/"))
(if (exists #ddest (noreq))
(
(set dels (tackon #default-dest "MPhone"))
(makeassign "MPhone" dels)
(run "c:delete >NIL: MPhone:Module/Locale ALL")
)
)
(makeassign "MPhone")
(complete 75)
; Voreinstellungen installieren
(Set #ddest (tackon #default-dest "MPhone/Pref/"))
(if (exists #ddest (noreq))
(
(set #cpref
(askbool (prompt #pref)
(choices #prefI #prefII)
(help #prefh)
(default 0)
)
)
(if (= #cpref 1)
; Grunddaten installieren
(copyfiles (source "MPhone2/Main2")
(dest #default-dest)
(infos)
(all)
)
)
(complete 100)
)
; Neuinstallation
; Grunddaten installieren
(
(copyfiles (source "MPhone2/Main2")
(dest #default-dest)
(infos)
(all)
)
(complete 80)
)
)
; MPhone-Developer Daten kopieren
(
(set #cpref
(askbool (prompt #MPD)
(choices #prefI #prefII)
(help #MPDh)
(default 0)
)
)
(if (= #cpref 1)
(
(copyfiles (source "MPhone2/Main3")
(dest #default-dest)
(infos)
(all)
)
)
)
)
; MadisonTools-Daten kovertieren
(if (exists "Madison:MadisonTools" (noreq))
(
(set #cpref
(askbool (prompt #MT)
(choices #prefI #prefII)
(help #prefh)
(default 0)
)
)
(if (= #cpref 1)
(
(Set #ddest (tackon #default-dest "MPhone/MT-2-MP"))
(run c:cd #ddest >NIL:)
(run MT-2-MP)
)
)
)
)